﻿<%@ Application Language="VB" %>
<%@ Import Namespace="ADOEntity" %>
<script runat="server">

    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs on application startup
    End Sub
    
    Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs on application shutdown
    End Sub
        
    Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when an unhandled error occurs
    End Sub

    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when a new session is started
    End Sub

    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when a session ends. 
        ' Note: The Session_End event is raised only when the sessionstate mode
        ' is set to InProc in the Web.config file. If session mode is set to StateServer 
        ' or SQLServer, the event is not raised.
        Dim userEntity As New userEntities
        Dim clsSessionMenuRight As New clsSessionMenuRight
        clsSessionMenuRight = Session("ClsMenuRight")
        If Not clsSessionMenuRight Is Nothing Then
            Dim UpdateIsLogin = (From tblUser In userEntity.SUSER
                          Where tblUser.USERNAME = clsSessionMenuRight.getUserName).ToList
      
            UpdateIsLogin(0).ISLOGIN = False
            userEntity.SaveChanges()
        
            UpdateIsLogin = Nothing
            userEntity = Nothing
        End If
        clsSessionMenuRight = Nothing
        
    End Sub
       
</script>